home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Asm Source / LBug < prev    next >
Encoding:
Text File  |  1992-09-13  |  270 b   |  26 lines  |  [TEXT/MSET]
  1. 0 value dlevel
  2.  
  3. : (val")
  4.     (lit-str) type  space
  5.     dup .h  cr  ;
  6.  
  7. : val"
  8.     dlevel
  9.     IF
  10.         postpone (val")  ,"
  11.     ELSE
  12.         word" drop
  13.     THEN  ;            immediate
  14.  
  15.  
  16. : (msg")
  17.     (lit-str)  type  cr  ;
  18.  
  19. : msg"
  20.     dlevel
  21.     IF
  22.         postpone (msg")  ,"
  23.     ELSE        
  24.         word" drop
  25.     THEN  ;            immediate
  26.